home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zc.d64 / proc.sirene < prev    next >
Text File  |  2007-03-01  |  447b  |  21 lines
  1. 0180 ╨╥╧├ SIRENE ├╠╧╙┼─
  2. 0190   ╒╙┼ SOUND
  3. 0200   VOLUME(15)
  4. 0210   SETFREQUENCY(3,80)
  5. 0220   SOUNDTYPE(3,1)
  6. 0230   FILTERTYPE(0,0,0,1)
  7. 0240   SOUNDTYPE(1,3)
  8. 0250   PULSE(1,256)
  9. 0260   ADSR(1,0,0,15,7)
  10. 0270   GATE(1,1)
  11. 0280   FRQ:=8000
  12. 0290   ╞╧╥ T:=1 ╘╧ 120 ─╧
  13. 0300     FQ:=FRQ+OSC3*3
  14. 0310     SETFREQUENCY(1,FQ)
  15. 0320   ┼╬─╞╧╥ T
  16. 0330   ╞╧╥ V:=15 ╘╧ 0 ╙╘┼╨ -1 ─╧
  17. 0340     VOLUME(V)
  18. 0350     ╞╧╥ T:=1 ╘╧ 4 ─╧ ╬╒╠╠
  19. 0360   ┼╬─╞╧╥ V
  20. 0370 ┼╬─╨╥╧├ SIRENE
  21.